home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_gadgets / dd_borderslider.e next >
Text File  |  1995-10-29  |  995b  |  42 lines
  1. OPT MODULE
  2.  
  3. MODULE 'utility'
  4. MODULE 'utility/tagitem'
  5. MODULE 'intuition/intuition'
  6. MODULE 'intuition/imageclass'
  7. MODULE 'intuition/screens'
  8.  
  9. EXPORT OBJECT borderslider
  10.   sizeimage:PTR TO image
  11. ENDOBJECT
  12.  
  13. EXPORT ENUM BSLIDA_DUMMY=TAG_USER,BSLIDA_SIZE,BSLIDA_DRAWINFO
  14. EXPORT ENUM BSLIDX_CREATE
  15.  
  16. RAISE BSLIDX_CREATE IF NewObjectA()=0
  17.  
  18. EXPORT PROC new(taglist=NIL) OF borderslider HANDLE
  19.   PrintF('drawinfo=\h\n',GetTagData(BSLIDA_DRAWINFO,0,taglist))
  20.   self.sizeimage:=NewObjectA(
  21.     0,
  22.     'sysiclass',
  23.     [
  24.       SYSIA_DRAWINFO,GetTagData(BSLIDA_DRAWINFO,0,taglist),
  25.       SYSIA_WHICH,SIZEIMAGE,
  26.       SYSIA_SIZE,GetTagData(BSLIDA_SIZE,SYSISIZE_MEDRES,taglist),
  27.       TAG_END
  28.     ])
  29. EXCEPT
  30.   self.end()
  31.   ReThrow()
  32. ENDPROC
  33. EXPORT PROC end() OF borderslider
  34.   IF self.sizeimage
  35.     DisposeObject(self.sizeimage)
  36.     self.sizeimage:=0
  37.   ENDIF
  38. ENDPROC
  39. EXPORT PROC height(taglist=NIL) OF borderslider IS self.sizeimage.height
  40. EXPORT PROC width(taglist=NIL) OF borderslider IS self.sizeimage.width
  41.  
  42.